home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1984 April
/
64er_Magazin_84-04_1984_Markt__Technik_de.d64
/
disk copy v 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
92 lines
100 rem *** initialisierung ***
110 poke56,peek(46)+14:clr:rb=255-peek(56):pa=1:an=0:bl=0:nf$=""
120 pe=peek(45)+256*peek(46):mr=pe-135:mw=pe-79:md=pe-24
130 dimnf$(140),cf%(140),bl%(140),p%(10),al%(90),ah%(90)
140 p%(0)=0:al%(0)=0:ah%(0)=peek(56)-1
150 :
160 rem *** menue ***
170 print"[147]"tab(9)"***** disk copy *****":printtab(10)"von d.weineck 2/84"
180 print"1. directory
190 [153]"2. kopieren
200 print"3. formatieren
210 [153]"4. ende
220 printspc(212)"bitte waehlen sie
230 [161]dc$:dc[178][197](dc$):[139]dc[179]1[176]dc[177]4[167]230
240 [145]dc[137]910,270,700,670
250 :
260 [143] *** kopieren ***
270 [153]"loadoriginaldiskette einlegen"
280 [141]990
290 [143] *** files einlesen ***
300 [159]1,8,0,"$0"
310 [141]760:[139]nf$[179][177]""[167]340
320 [139]st[178]0[167]310
330 [137]350
340 bl%(an)[178][198](bl$[170][199](0)):nf$(an)[178]nf$:[139]st[178]0[167]an[178]an[170]1:nf$[178]"":[137]310
350 [160]1:an[178]an[171]1:[139]an[178]0[167][153]"leere diskettewait":[141]990:[138]
360 [143] *** kopierauswahl ***
370 [153]"loadantworten sie mit j/n"
380 [129]i[178]1[164]an:[153]bl%(i);[163]5)nf$(i)" ? ";:[151]198,0
390 [146]198,1:[161]a$:[139]a$[178]"j"[167]cf%(i)[178][171]1:bl[178]bl[170]bl%(i):[153][163]30)" ja wait":[137]420
400 cf%(i)[178]0:[139]a$[179][177]"n"[167]390
410 [153][163]30)"nein"
420 [139]bl[177]rb[167]p%(pa)[178]i[171]1:pa[178]pa[170]1:bl[178]bl%(i)
430 [130]i:p%(pa)[178]an
440 [139]bl[178]0[167]640
450 [143] *** kopie ***
460 [153]"loadkopie in arbeit"
470 [129]i[178]1[164]pa
480 [129]rw[178]0[164]1:nr[178]0:[139]rw[178]1[167][153]"zieldisk einlegen":[141]990
490 [129]j[178]p%(i[171]1)[170]1[164]p%(i)
500 [139][168]cf%(j)[167][130]j:[137]540
510 nf$[178]nf$(j):[153]bl%(j);[163]5)nf$:[141]570:[139]st[178]0[176]st[178]64[167]530
520 [141]880:[138]
530 [130]j
540 [130]rw:[139]i[178]pa[167]640
550 [153]"originaldisk einlegen":[141]990
560 [130]i:[138]
570 [139]rw[178]1[167]610
580 [159]1,8,5,nf$[170]",r":[151]252,0:[151]253,ah%(nr)[170]1
590 [158]mr:nr[178]nr[170]1:al%(nr)[178][194](254):ah%(nr)[178][194](255)
600 [160]1:[142]
610 [159]1,8,5,nf$[170]",w":[151]252,0:[151]253,ah%(nr)[170]1
620 [151]254,al%(nr[170]1):[151]255,ah%(nr[170]1):[158]mw
630 nr[178]nr[170]1:[160]1:[142]
640 [153]"kopie fertig !
650 gosub990:run
660 rem *** ende ***
670 poke56,160:end
680 :
690 rem *** formatieren ***
700 input"[147]diskname";fo$:id$="":input"disk-id";id$:ifid$<>""thenid$=","+id$
710 fo$=fo$+id$
720 print"bitte zieldiskette einlegen"
730 gosub990
740 open1,8,15,"n:"+fo$:close1
750 gosub880:goto170
760 rem directory einlesen
770 get#1,a$,b$
780 get#1,bl$,b$
790 get#1,a$
800 get#1,b$:ifst<>0thenreturn
810 ifb$<>chr$(34)then800
820 get#1,b$:ifb$<>chr$(34)thennf$=nf$+b$:goto820
830 get#1,b$:ifb$=chr$(32)then830
840 nf$=nf$+","+b$:fori=0to1:get#1,b$:nf$=nf$+b$:next
850 get#1,b$:ifb$<>""then850
860 return
870 rem *** fehler-ausgabe ***
880 open15,8,15:input#15,a,b$,c,d:printa;b$;c;d:close15:gosub990:return
890 :
900 rem *** directory ***
910 print"[147]"
920 open3,8,0,"$0":get#3,a$,a$
930 get#3,a$,a$,bl$,bh$
940 ifa$=""thenclose3:goto980
950 bl$=bl$+chr$(0):bh$=bh$+chr$(0)
960 print256*asc(bh$)+asc(bl$);
970 sysmd:goto930
980 gosub 990:goto170
990 printspc(69)"[164][164][164][164][164][164][164]":printspc(29)"*taste*[146]"
1000 poke198,0:wait198,1:geta$:return